home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0001 / patterns.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-09-08  |  4.0 KB  |  69 lines
  1. 1000  ' ###################################list
  2. 1010  ' PATTERNS    ED DAVIS 1-2-82
  3. 1020  ' Comments welcome
  4. 1030  ' but BE  KIND!
  5. 1040  ' Burlington (8-446)-2091
  6. 1050  '
  7. 1060  ' ###################################
  8. 1070  DEFINT M:COMMON MENU
  9. 1080  KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:M%=0
  10. 1090  LOCATE 10,1:PRINT "<<-  IF THIS PRINTING IS NOT IN THE  ->>"
  11. 1100  LOCATE 11,1:PRINT "   CENTER OF THE SCREEN PRESS  'M' TO
  12. 1110  LOCATE 12,1:PRINT "   MOVE THE PICTURE TO THE RIGHT, ANY
  13. 1120  LOCATE 13,1:PRINT "    OTHER KEY TO GO TO THE PROGRAM.
  14. 1130  K$=INKEY$:IF K$="" GOTO 1130
  15. 1140  IF K$="M" OR K$="m" THEN OUT 980,2: OUT 981,43:M%=1:GOTO 1160
  16. 1150  M%=0
  17. 1160  CLS:SCREEN 0,1:COLOR 15,0,0
  18. 1170  COLOR 23 :LOCATE 2,13:PRINT"PATTERNS"
  19. 1180  LOCATE 3,13:PRINT"E.DAVIS
  20. 1190  COLOR  4,7,0:LOCATE 6,2:PRINT"Please select one of the following:
  21. 1200  LOCATE 8,9: PRINT"1- WALLPAPER (NICE!)
  22. 1210  LOCATE 9,9:PRINT"2- WAVES
  23. 1240  LOCATE 22,9:PRINT "Q- TO QUIT PROGRAM
  24. 1250  LOCATE 23,9:PRINT "M- TO MOVE SCREEN"
  25. 1260  LOCATE 4,16
  26. 1270  K$=INKEY$:IF K$="" GOTO 1270
  27. 1280  IF K$="1" THEN GOSUB 1350
  28. 1290  IF K$="2" THEN GOSUB 1410
  29. 1300  IF K$="3" THEN GOSUB 1460
  30. 1310  IF K$="4" THEN GOTO 1510
  31. 1320  IF K$="Q" OR K$="q" THEN CLS:CHAIN "MENU",1000
  32. 1330  IF K$="M" OR K$="m" THEN GOTO 1080
  33. 1340  GOTO 1160
  34. 1350  CLS :REM BEGINNING OF PATTERN PGMS E.DAVIS 1-2-82
  35. 1360  SCREEN 1,0:COLOR 0,1:IF M%=1 THEN OUT 980,2:OUT 981,43
  36. 1370  FOR I=0 TO 300:C=C+1:C=C-(3*INT(C/3)):IF C>3 THEN C=0
  37. 1380  LINE (I,0)-(300-I,191),C:NEXT
  38. 1390  FOR I=0 TO 191:C=C+1:C=C-(3*INT(C/3)):IF C>3 THEN C=0
  39. 1400  LINE (0,191-I)-(300,I),C:NEXT I:GOSUB 1770:GOTO 1350
  40. 1410  CLS ' WAVES
  41. 1420  SCREEN 1,0:COLOR 0,1:IF M%=1 THEN OUT 980,2:OUT 981,43
  42. 1430   C=3:LC=0:T#=18.8496
  43. 1440  FOR X=0 TO T# STEP T#/279:LINE (140,96)-(X*14.8,60*SIN(X)+96),C
  44. 1450  NEXT :GOSUB 1770:GOTO 1410
  45. 1460  CLS' ALPHA PARTICLES
  46. 1470  SCREEN 1,0:COLOR 1,0:IF M%=1 THEN OUT 980,2:OUT 981,43
  47. 1770  IN$=INKEY$:IF IN$=CHR$(27) THEN GOTO 1150 ELSE RETURN
  48. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  49. 9090  LOCATE YY+11,53:PRINT"PERSONAL COMPUTER"
  50. 9100  RETURN
  51. 59999  GOTO 59999
  52. 60000  ' PROGRAM TO SWITCH BETWEEN MONO AND COLOR DISPLAY
  53. 60005  DEF SEG=0:IF (PEEK(&H410) AND &H30) = &H30 THEN DSPMODE = 1 ELSE DSPMODE = 2
  54. 60010  ADAPTER = 0:DEF SEG = &HB000:POKE 0,63:IF PEEK(0) = 63 THEN ADAPTER = ADAPTER OR 1
  55. 60015  DEF SEG = &HB800:POKE 0,63:IF PEEK(0) = 63 THEN ADAPTER = ADAPTER OR 2
  56. 60020  DEF SEG
  57. 60025  IF ADAPTER <>3 THEN BEEP:PRINT"Sorry--other display isn't installed!!":GOSUB 60080:RETURN
  58. 60030  ON DSPMODE GOSUB 60035,60060:RETURN
  59. 60035  REM switch to color/graphics adapter
  60. 60040  KEY OFF:CLS:LOCATE 10,15:PRINT"using other screen--PRESS the A key to get back here!":LOCATE ,,0
  61. 60045  DEF SEG = 0:POKE &H410,(PEEK (&H410) AND &HCF) OR &H10:DEF SEG
  62. 60050  SCREEN 1,0:SCREEN 0,1:COLOR 1,0:WIDTH 40:COLOR 7,0
  63. 60055  LOCATE ,,1,6,7:RETURN
  64. 60060  REM switch to monochrome adapter
  65. 60065  KEY OFF:CLS:LOCATE 9,5:PRINT"Using other screen.":LOCATE 10,5:PRINT"PRESS the A key to get back here!":LOCATE ,,0
  66. 60070  DEF SEG = 0:POKE &H410,(PEEK(&H410) OR &H30):DEF SEG
  67. 60075  SCREEN 0:WIDTH 80:LOCATE ,,1,12,13:RETURN
  68. 60080  FOR N = 1 TO 3000:NEXT:RETURN:'DELAY
  69.